tt a tt St Ht tt HH HH HH Ha 
tt a tt a a tt i 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 


HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HH HHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 


tt tt tt st 4 Ht Ht Ht Ht Ht Ht HH HH 
AAA a 
| LE) 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


**F 1LE**1D**MTHCABS 
MM MM TITTTTTTTT HH HH ccccccce AAAAAA BBBBBBBB SSSSSSSS 
MM MM TTTTTTTTTT HH HH cecceccce AAAAAA BBBBBBBB SSSSSSS5 
MMMM | 6MMMM TT HH HH (CC AA AA BB BB SS 
MMMM MMMM TT HH HH CC AA AA BB BB SS 
“mM MM MM TT HH HH CC AA AA BB BB SS 
MM MM MM TT HH HH CC AA AA BB BB SS 
MM MM TT HHHHHHHHHH = CC AA AA B8B8BBBB SSSSSS 
MM MM TT HHHHHHHHHH = CC AA AA BBBBBBBB SSSSSS 
MM MM TT HH HH CC AAAAAAAAAA BB BB SS 
MM MM TT HH HH CC AAAAAAAAAA BB BB SS 
MM MM TT HH HH CC AA AA 6B BB SS eee 
MM MM TT HH HH CC AA AA BB BB SS eee 
MM MM TT HH HH CCCCCCCC AA AA BBBEBBBB SSSSSSSS coe 
MM MM TT HH HH Cccccccc «AA AA BBBBBBBB SSSSSSSS eee 
LL IIIII] SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL Il SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL Il SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 


MTHSCABS 
Table of contents 


HISTOR 
43 aps 
MTH 


N 14 
COMPLEX ABSOLUTE VALUE 


oy TION ; Detailed Current Edit History 
CABS = NE OMPLEX absolute value 


16-SEP-1984 01:05:49 VAX/VMS Macro v04-00 


MTHSCABS COMPLEX ABSOLUTE VALUE I6-SEP=1984 01:05:49 YAX/UMS \tacro v04=00 Pace 1 
1 008 pales $1iS8528 FATAN TE. ese Nek C nae 788 Od, 
TITL 
"IDEN : File: MTHCABS.MAR 


| 
E miNseags COMPLEX ABSILUTE VALUE 
T /1+003/ 
ITI S IIIS SIT il ili iii lit iiiiiititi iii titi ii ii itiititiiiiiiiiiiiitiiiiiititit | 
COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
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* ABSTRACT: 
Return the absolute value of the COMPLEX number. 


VERSION: 0 
HISTORY: 


AUTHOR: : 
Jonathan M. Taylor, 19-JUL-77: Version 0 


MODIFIED BY: 
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; Edit History for Version 0 of MTHSCABS 


Add comment about floating overflow. TNH 13-June-78 

Update version number and copyright notice. JBS 16-NOV-78 
"""" to the PSECT directive. JBS 21<DEC-78 

Use MTH$SQRT_R3. SBL 27-Sept=1979 
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; INCLUDE FILES: 
OERR.MAR 

; EXTERNAL SYMBOLS: 

.GLOBL MTHSSQRT_R3 


; MACROS: 
; NONE 


; PSECT D a ATIONS: 


ECL 
»PSECT 


EQUATED SYMBOLS: 


04-00 
745 (CMTHRTL.S RCIM THCABS .MAR; 1 


_MTHSCODE PIC, SHR, LONG, EXE, NOWRT 


argadr = 4 : offset from AP of arg addr 


OWN STORAGE: 
NONE 
.SBTTL MTHSCABS - COMPLEX absolute value 


+ 
FUNCTIONAL DESCRIPTION: 


MTHSCABS computes the absolute value of a COMPLEX number (r, i) 


as follows: 
result = ABS(MAX*SQRT( (MIN/MAX) **2 + 1)) 
CALLING SEQUENCE: 


Absolute_value.wf.v = MTHSCABS (arg.rfc.r) 


INPUT saga 


he one input parameter is the address of a COMPLEX number (r, i), 
where r and i are both single-precision floating values. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
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VALUE 
LEX absolute value 


SSS_FLTOVE (_F) 


ENTRY MTHSCABS, 
MTHSFLAG_ JACKET 
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w trap (fault) 


3 resignal 


set handler address to jacket 
handler 


; ae = sit 


; R = ABStT) 
; compare the magnitudes of r and i 
; a ee. ifr 
. qu 


; else swap so RO "9 smaller 
: J = Larger part (r) 
smaller part (i) 


3 at this point RO contains MIN (the smaller of iri and ‘:i:), and 
; R1 contains MAX (the Larger of ir! and ‘i!) 


; answer is 0 


v04-00 
REIN THCABS .MAR; 1 


(MIN/MAX) **2 + 1 


MAX 
SQRT( (MIN/MAX) *#2 + 1) 

RO = MAX*SQRT( (MIN/MAX) **2 + 1) 
: Lent ing overflow could happen 
; RO = AB eS 
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Symbol table 66-SEP-1984 11:20:45 CMTHRTL.SR RCIM THCABS .MAR; 1 (3) 
ARGADR = 00000004 
MTHSSJACKET_HND teeeeene 01 
MTHSCABS 00000000 RG sO | 
MTHSSQRT_R3 etereere G 00 } 
REALLO 00000028 R 01 | 
00060046 R 01 | 
dona mannsocenaeaae + 
' ;_Psect synopsis ; | 
PSECT name Allocation PSECT No. Attributes 
- 4ABS.. 00000000 < g.) 0.) NOPIC USR CON ABS LCL ny > NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 00000049 ( 7 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
eeeeewoesoseesooeesoncees 
H ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00.06 00:00:01.21 
Command processing 127 00:00:00.60 00:00:06.24 
Pass 1 86 00:00:00.58 00:00:04.18 
Symbol table sort 0 00:00:00.01 00:00:00.03 
Pass 2 45 00:00:00.49 00:00:04.74 
Symbol table output 2 00:00:00.01 00:00:00.13 
Psect synopsis output 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 296 00:00:01.79 00:00:16.57 


The working set Limit was 750 pages. 

2575 bytes (6 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 6 non-local and 0 local symbols. 
215 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

1 page of virtual memory was used to “define 1 macro. 
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"$255$DUAZ28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 


Macro library name Macros defined | 
MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHCABS/OBJ=0BJ$:MTHCABS Ab atau nt 
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